home *** CD-ROM | disk | FTP | other *** search
/ Click 5 / Click 5.iso / data / game5.dat / scripts / DefineButton2_200 / BUTTONCONDACTION on(release).as
Text File  |  2002-11-22  |  1KB  |  41 lines
  1. on(release){
  2.    if(10 < col and 1 < tekpos)
  3.    {
  4.       tekpos = Number(tekpos) - 1;
  5.       count = (tekpos - 1) * 10;
  6.       if(Number(tekpos) * 10 >= col)
  7.       {
  8.          while(count < col)
  9.          {
  10.             count = Number(count) + 1;
  11.             makestring = count - (tekpos - 1) * 10;
  12.             set("StringPos" + makestring,count);
  13.             set("Stringnam" + makestring,eval("n" + count));
  14.             set("Stringscor" + makestring,eval("sc" + count));
  15.          }
  16.          if(count < Number(tekpos) * 10)
  17.          {
  18.             while(count < Number(tekpos) * 10)
  19.             {
  20.                count = Number(count) + 1;
  21.                makestring = count - (tekpos - 1) * 10;
  22.                set("StringPos" + makestring,"");
  23.                set("Stringnam" + makestring,"");
  24.                set("Stringscor" + makestring,"");
  25.             }
  26.          }
  27.       }
  28.       else
  29.       {
  30.          while(count < Number(tekpos) * 10)
  31.          {
  32.             count = Number(count) + 1;
  33.             makestring = count - (tekpos - 1) * 10;
  34.             set("StringPos" + makestring,count);
  35.             set("Stringnam" + makestring,eval("n" + count));
  36.             set("Stringscor" + makestring,eval("sc" + count));
  37.          }
  38.       }
  39.    }
  40. }
  41.